unit SmallStruct.Form.TSSPanel;

interface

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  SmallStruct.Form.TSSFrame,
  RzBckgnd,
  ExtCtrls,
  RzPanel,
  RzBmpBtn;

type
  TSSPanel = class(TSSFrame)
    _Panel: TRzPanel;
    _Background: TRzBackground;
  private
    { Private declarations }
  public
    function GetActionButtonCount: Integer;
  end;

implementation

uses
  SmallStruct.ActionView.TSSActionButton;

{$R *.dfm}

{ TSSPanel }

function TSSPanel.GetActionButtonCount: Integer;
var
  Index: Integer;
begin
  Result := 0;

  for Index := 0 to _Panel.ComponentCount - 1 do
    if _Panel.Components[Index] is TSSActionButton then
      Inc(Result);
end;

end.
